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INTERFACE PROCEDURES. 



Notes: 



irH 



Avoids blocking RQ at CO 
Incoming char, is spread over RQ 
Last char. + 18 bits of TA *RQ 

I^ecessary to test sign of divisor 
First division loop flag 



Keeps RADC in step with RY 

Data word or N on 1902-3 

Data word on 190i 

N on 1901 

Adds datum to X on RJ 



+ Represents loj^ical OR 
9 Represents logical AND 



LOADING 

The loading sequence is entered by GOTOFP from 
the Processor. 

A single binary LOAD is on during the whole sequence 
even when hesitations are in progress, 

LOAD does: 

SET TA23-18 to OUlll at C2 

CDINQl, INHIBIT CMSQ at C3, C2, CI 

CDINQ2, CMSQ at CO 

T A ^ RK 

DIN5 -^RK23 [Only applies at CO] 

SET ESB 

LOAD«BP3 [i. e. Load not in hesitation] does: 

CONTINUE CYCLE 

TRIGGER TA CHARACTER -WISE 

ALIX)W RY to RADC on 1902-3 

CBCH if 1902-3 

CB if 1901»(LOADUCG11) 
CAL if 1901»LOAD1# CGU 
CDJ i( LOADUCG13 

I 
DATUM is added to N as appropriate in STEP 1 by 

CP control 

RESC 1902-3 allow MDLF for CG4 and CG13 (not 

130, 131) 

1901 Set FPRESC if MDLF#(OBJ + RMB)»C2 

GOTOFP is CHES»HESR*BP1 on 1902-3 
STEP2 on 1901 

LOADl loads n or N 

LOAD2 loads x or x* or does A + 1 ^N 

LOAD3 loads x 'i^ or x or n* 
LaAD4 restores TA 
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l^.^ • Notes: 

>$- QJS FPARisF132-F135 


FACE PROCEDURES 
LOADI TO LOAD4 

LOADl (LOAD n OR N) 
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17 
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UJ 
UJ 
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wO 
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UJ 
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UJ 
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1— 
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UJ 
Ul 


«0 

s 
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LOAD (N) to SA if (CG4 + F136 + FPAR»RX2)) 

IXXA.D (N) to UA if (F136 +(FPAR»RX2)) 

TRANSFER N to SA if CCxll 
/clear RZ at C3 
\corNT RZ if SHIFT 

RQ to RZ at CO if SHIFT 

INHIBIT DIN if (F136#RX0) 

SET BZ if (MILLZ«DIV) at CO 

CLEAR RPV at C3. COPY RV to RPV 

CHESatCO 




« 


>s^ rf) cO before RQ — 'RZ 




Clear FP accumulator 

Zero divisor. P^inish at LOAD3 

^ BP is set off by entry GOTOFP 




GOTO LOAD2 LcHES«HESR»LOAD»BP J 
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Clear 1. s. half of operand 
Reduces to 23 in ^OAD3 ' 
Hesitation return flag 
V Hesitation corrupts RN on 1901 


LOAD (X) TO TB if MULT 




X 




LOAD (X*) to TB if MULT*CG13 

A -♦• (1 at C3) «-A, N if CG13 

INHIBIT DIN if F114 
SET RZ to 24 if CG4 
SET BP at CI 
CHES if 1902-3 




GOTO LOAD3 L^(CHES#HESR) + 1901)»LOAD#BP] 






LOAD3 [load OTHER HALF] 






Clear RQ 

All I's to RQ & RMS23 for QBIT 
f^ setting 

Rounding constant 

Exponent sign is inverted in progran 

Overflow if divisor zero 
Compare dividend divisor sign 

for first mill operation 
Floating point overflow if indicated 

in n- 
"First tin;ie" flag for normalise 

F114/5 
No. function to do. 

Begin loop if multiply, divide or 

shift 
Test exponent first if F 114/ 5 


LOAD (X) if CGI 1 + F044 + F0451 to TA (LOAD REGISTER) 

LOAD (X*) if F042 J 

LOAD (N) if CGI 3 to: 

UBE, SB if F136 + FPAR»RX2) 

UBF, TB if F136 + (FPAR«RX2^ 


0!5 




^^ . UJ 




INH. DIN if F040 + F041 + (F046«TB23) + (F136#RX0) 
CiX)SE ALL RQ (;ATES if (F046«TB23) & FORCE RMS23 

FORCE DIN4 at CO if F041 
-1 INVERT DIN2 at C2 if CGI 3 
COUNT RZ at CO 
SET RPV if BZ 
SET QBIT if (RMS23 - SA23) 




50I6360/ 5 

DIAGRAM ISSUE 




SET RFPV if CCtl3»RQ23#C0 RESET IF Fl36«Cu«(RX0 +RQ23) 
RESET BP 
SET BZ at CO 

CxO TO DUMP if (DIV«©Z) + (SHIFT RZZ) 
LOADEND if CG13#C0 




GOTO L(X)PE1 if (LOADEND»CGl3«NORM#FPEND) 

GOTO LOOPE3 if (LOADc:ND«NORM) 
GOTO LOAD4 if CGI 3 
LOAD4 [restore TAJ 




r^ 




Function completed 

Begin function if F132-F135 

+ Represents logical OR 


UA ^TA 

STE PEN D [processor] 
FPEND if F138 
LOADEND if F136 
GOTO EXPi if F136 


® ti, ^. 








• Represents logical AND 
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Q i-^ ,^ The writing of results to the store is identified by a single binary DUMP which 
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,^ ^ ^ ^^ DUMP sequence is entered by GOTODUML^ in the fixed point orders which also 
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doPK RESYNC. and hv r;<:yr()FP»Fi 37. DUMP m switched off bv FPEND. 
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Add datum to X on RJ DUMP does CDJ and INHIBIT M DLF if CG13® BP3 






DUMP 1 [eNTI^RED by GOTODUM POTEST RESC] 
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Hesitation re-entry flag CLEAR HZ 
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Clears address binaries in 1901 for a \ COMINLE CYCLE 
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Hesitation corrupts R.N on 1901 ClilLS if 1902-3 
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G(L10])LML2 if (j90i«»!^mOf) or (1902-3 from CHES) 

r 




)~ 


Z 

LJJ 






DUMP 2 [transfer DAT.a] 
i^P Ls off first time round, on second / Lf Fl'Sa, TA if BP, TH if HP \ ,,,^, 


3 


uJ 
X 

'-0 


3 












< . '„ , .^--rr . y to BIN and tf) RH 








tnne round \ If F137, VA if BP, IJB if BP / 


>.-^ ^ 






Exjyjjunt si^^n is inverted in pro^i^i-am LXVEitT HIN2 if FL>7»ILP»C2 


o< 






J'McKittn^- poiiit overflow is set in n- RFPV - — -«»RQ2:^ WHEN {}n -*^RQ 








Ri: \D: DESTRUCTIVE IF 1901 & fLP 










CNJ n I' I'M 1 i 








CXJ if 1' L;7dBP V CONTROLLED BY DUMP*BP3 






CX^- J if F13 7»BP J 


COS 






JYinction han produced overflt)w S)Li LLv if (F13 7®R I'T-n^) L (F137©RPV) 
Hesitaiiun re-eniry flag COFXT RZ 














GOTO l)LAIi^3 at CD 








DLMPls [WIUTE STORE. UPDATE REGISTERS 


-~^^ 






\ - - L ^,.j^^ 


o 






-■ 


. v£) 






WRIT!-:, CONTJNUE CYC:EE 


hO 






UA if ]iP®(Fi:n*RXO) *! ,,, .., ^^^^ ,^_- 
LM5H BP*(L137^RX0) f '^ ^^^ ^^' TA if BP 


^ 




F137«HX0. Set FP ace. to FP zero 2^ if ILPeNO'L UL^. J ^^B, SB, IBifBP 


O 






IH^SET \iyPV if (Fl37i9RX0) 






BP ia off first time round, on second \ SET HP at XSEQ 








time I'ound J i'X'TR3 






FPl' \D if HP 


O 






c:lh-,s if BP 


< 
Q 






C;010 DUMP4 if F137 rCHES«HESR«F13:7ftFPEND 








I&HZZ] OR 








GOTO DUMP2 if F137 [cHES«HESR®F137»FPENd] - 






DUMP 4 [count RNJ 


1900 

ENTIFIC 1 

LOGIC 






Wholly processor operation RA ^-[l at C3] ^^--•w'RA, KH 






C;OTO DUMP! 


U 






+ Represents logical OR 








e Represents loj^i^icol VND 
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FIXED POINT FUNCTIONS 

LOOPE! TO LOOPE3 



Notes: 



LXX )£iii IA'^^ ^ ^ ^ -^ ^ "^^^^^ ^^^^'' f^ AT K)N] 



r*1 



TA ± SA in multiplv/ divide, TA J ^A— ^TA _ 

li shift/ nurmaiiBe ! . \ . .w-^r-. ...,>rv. 

\4.1\\SA, INPC if (Mi^LT«i'rBO«KZZ)+(DIV ^HI T 

f Siill^ 1 ].i:FT if l-lll + (:\()RM«RV) 4- (DIV#HZZ) 

I RZZ) 

^ UMSHLO TH2 3 if (FUl^SAU) OTHERWISE 






H 



M 



ujs; ** 



^1 



rs- 



\o shift occui'8 in last 
time round multiply/ divide 



Shift left into slice 

Shift right into slice 22 

Shift fight into slice 23 in normalise 

In multiply the equivalent of RMS24 

I':nd effects of ri^jit shift - ni.s, half 



■.riT22 
KMSnii22 = lT\iS23 _ __ 

!lMSnR23 - (\ORM@Rin«TA23)+ (XORMwRTT*! 

TA2:0 

■UMrL-|-e^((TA23_^A_23) -r (rA23»SA23) 

•HrSAT^SA2 3«('V2 3'))) 

Mi'\C\ACml\iO) f (\rM»TA23) + (RPV 

#TA2 3«SP}:r] 

-f(SlMA'*HP\ ®TA23) 



Knd effects of right shift - nu s. half 

TC'V acts as a buffer for what falls off the end 'Vi'Y - (f i J I^IA ( ' LK'«^ JA 23} + (CSHR^RMSO) 



H 



i 



(.Quotient bit =-" 1 if dlvi«or ''goes' 

In division this first overflow may be phonej 
Overflow in numeric left shift 

First tinie' flag for nox-malise F114/5 



Shifty mtiltiplier, quotient or other haU* 
of x: 



'TOY acts MH a bul'fer for what fa Jib 
off the end 

Forces si^n t)f i, s, half to zero 
Division ' first ttine fUitif' 
Ijoop count 

N o rm n 1 i k e u s e s LCX) PE 1 - 3 , o th e r s 

FOOPEl & 2 only 
Function corn pleled 
Division vnd effects 



If not first time, El if RV, -I if RV 

Loop count 

K X [.lonent ev e r fio w 

lAxponent is net^alive or reaches zero 

or arg. is zero 
A r tj uni e nt no r m a li s e d 



QBIT- 1)1 V> (SA23 - K:\!S23) 
HFV ■ (;\H L"i>lA/:Z^O\R) + 
im\m FSBs (TA23 - UMS23))+ 

(KirUSAJ 1®(TA23 / RMS23)) + (SPTXR© 

lipy) 

RESET BZ 

GO'EO lOOPi: 3 if F114 ELSE CX)TO LOOPE2 



IT)0IT:2 [SHIFl' OPE HA TIC) a] 
j Ti:-] «™-*.-T[i 

i suE'r Ef:!'':r if Fiii + (.norm^TTv) e 

tsiUET HKAiiT if EU3^f (NORAUl^O ^ 
riEVlSflEO - 'ICY if 0!\A (^BIl' if DJV 
I K^y!S!Ji{22 - iC\ if (\(.)RAi -i- (S!1IFT»S: 
i iEVlS2 3 if not: 



3! 

u- i 

Of 



f— 

t~ 

<j 

QC 
UJ 

X 
H- 

o 
o 






mi;lt 



1 ™. ^i 

i LU i 

\ \^ X 



^AU)); 

RMSiIR23 - T(:Y if (MULT^UZZ) + (SiilETeSATT); 
\ if not 
, SUPl^HiOSS R(^23 if N[.!M + N(^RM E SPEC 

RESfrr ESB ^^ 

COUNT RZ if AORM 

ao'vo loop j::3 if norm else cx)to loopei 

ii (KOR?^l®HZZ) 
else COTO dump if (MELT 4- SHIFT)*RZZ ELSK 
GOTO END! if ))IV©RZZ 

eoo im:3 \.\x)j \ s r ex pom-: \'v 

W NOJEMAEIZf] 

SA-^SA, INi'CifiT?-, +204 6 if mzVRV} 
COEXT RZ ___ 

SET KPX if (RMS9 f RMSIO)« BZ 
GOTO E\D7 if (RMSO-9 ^ + (RQlUBZ) 

+RZZ) ELSE __ _ 

fiOT(J EXna if (RV^lfz) + (RV»(']^A22 ^ TA23)) 

i:ese 

CJOrO EOOPEl 





uo 




UJ 


m 


3 

CO 




CO 



o 
o, 

O 
< 



+ Represents logical OR 
Represents logical AND 



f* 
9 



o-^ u,: c 

'^ y^ ^J 




'^/ ■■! '::>fornci ;^v9 ^^^^^ 
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FIXED POINT FUNCTIONS, 

ENDl TO END9 

EXDl [last quotient BIT ZEROj 



Notes : 

Add divisor back illastQBITwas TA ^ SA— * 

Flag for F046(roujTded division! RESKT HZ 

C;OTO EXD2 



. TA if C^BIT 



Set remainder zero if remainder = divisor TA 4 INVSA -¥ IN PC 

SET BZ it MILLZ 



Add 1 to (luotient if reniaindur « 

divisor or F045 
Overflow hero is as phonoy as the une 

inl.OOPEl 
Rounding procedure if first time and 

non zero remainder 



We now test to see if remainder ^ 

W divisor 
MajT lor LX)45 (rounded division) 
If TA2:i i 'rA22 remuijider must be 

greater than J- divisor 



END2 [remainder = DIVISOR] 

-TA if (MILLZ -f RZZ) 

:llz 

GOTO END3 

KND:^ [round (M)OTIKNT] 

TB -f [l\Pt' if (BZ -f RZZ)] — -— TB 

HE VERSE HPV if Ov K 

C;OTO END4 if (F045«RZZ»BZ) ELSE GOTO DUMP 

END4 [shift remainder] 

TA SHIFT LEFT— -TA if (TA23 - TA22). 

RMSHLO - 
COFNT HZ 
GOTO END2 if (TA23 4 TA22) ELSE C;OTO ENDS 

ENDf> [compare divisor ^ TWICE REMAlNDEUj 
TA -f INVSA -MNPC: ^MILL 



Set BZ if rounding recju^red 



Finish if rounding not required 



SET HZ if SA23 = RMS23 
GOTO ENDO 



EN DQ 



[hESI OR E remainder] 



Rounding F115 must not carry to m. s. 

half 
Suppresses sign in 1. s. half 



TA. SHIFT RIGHT «"^TA. RMSJIR23 = RMS23 
C;01() E.\D2 if BZ ELSE GOTO DUMP 

END7 [normalize. ZERO RESULT] 

0™-»^TA, TB. clear RPV 
GOTO DUMP 

END8 [round in NORMALISE FN] 

TB 4'2^«— TB if (FllS* CY23) 

RESET 1T^23 WITH GOTO END8 
CX)TO END9 

END9 [place exponent] 

SA— — TBE 
GOTO DUMP 



9: 



o 
5 

o 

iXi 
LU 

X 

t~ 
< 



0!5 



r^5 



m 
O 



< 



+ Represents logical OR 
d Represents logical AND 



'WW 



X 





C_i 






^ 






h^ 




o 
o 

1 Oi 


U 

P 

l—i 
O 


o 

2 
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KIXKD POINT FUNCTIONS 



Htgin with register contents as tabled 



I'l ACJION 


vc: ri(x\ 


SA 


TA 


TB 


040 


x:' = x,n 


n 





X 


041 


X'' ^ x.n +2"^^ 


n 


2^2 


X 


04 2 


x:' = x„n ^^x^'* 


n 


X* 


X 


044 


x^' - x: -f-n 


11 


X 


X* 


045 


x***' = x; « )i round 


-d n 


X 


X* 


046 


X*' ^ x*-f n 


n 


Sign X* 


X* 


ni 


Shift x: left 


N (RZ) 


X 


X* 


] 13 


Shift x: rii^lit 


N (HZ) 


X 


X* 


114 


Normalise x 


\ 


X 





1 ) 5 


\o!'nial:.si' x: 


N 


X 


X* 



Ml f;l'^M.^' 



\hiltiply S.\ by TB, profiuct to 'I', No end efforts. 
DiVIDi: 



Divifie T by SA forming quotient in TB, End effects. 
SHIFT 



Shift T, Xo end effects. 
XOHMAtJSK 



Normalise T, adjust SA. End effects. 

[.OOPEl, 2 do arithmetic and shift operations 
EOOPE3 adjusts exponent in F114/5 
flNDl to 6 do division end effects 
1^ND7 to 9 do normalise end effects 



FLOATING POINT FUNCTIONS 



F 


X = 


X = 4 


132 


a:'- a: + n: 


a: = n: + a: 


133 


a:^= a: ~ n: 


a:'= n: - a; 


134 


a: = a: x n: 


a/= n: x a: 


135 


a:'= a: -rn: 


B.'/= n: -r a: 



F 


X = 


X - 1 


136 
137 


n:'= a: 


a:'=0 

n/= a;, a/= 



Be^in with a: in U, S, T 
If X = load n: to S and UE 
If X = 4 load n: to T and UF 



X - 



S 
n: 



T 

a: 



-9 I- 



LOAD/ STOli E 

F136 uses only EOADl tu .LOAD4 
E137 uses only DlJMPl tu DUMP4 

ADD/ SUBTRACT [ADSU] 



T ± S — 9^ V 
Normalise U, SE 



If ^1 10 - SE IS +, TE -i«»SE, 

Shift & round S 
If Tl^: - SE IS -, UE -«^SE, 

Shift & round U, T 

MULTIPLY [my] 

TE +-Si:-*»*Sl . Clear T. Multiply U 

by S, product to T. (and to U last time round). 

Normalise U, SE, 



DIVIDE 



[nv] 



TE-SE-*-SE. Shift T right. Clear U. 
Divide T by S, quotient to IK 
Normalise U, SE 

EXPl to 4 do all exponent computations 

ADJl to 3 adjust the operand 

LOOPEl to 3 do the function 

NOHMl to 3 normalise the ar^^ument 

ROUND 1 to 3 round the argument 

ENDFl to 3 test ex pone it and place the result 



"f^j)! 



o 

5 

5 

o 

kU 



LU 

X 

u^5 



0!5 






to 

-£. 
O 

O 
< 
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FLOATING POINT FUNCTIONS 

EXPI TO EXP4 



m 



Notes : 



Com pare /add /sub exponents 
10 bits wide 



Store difference in RZ if positive and 468 
BP stores sign of difference 
No adjustment required if exps. equal 
BR says exp. difference is out of range 
ESB (exp. sign bit) acts as 10th bit 
Dividing by zero 



BRsaysexp, difference is out of range 



ESB (exp. sign bit) acts as 10th bit 



Saves splitting the argument 

Ensures correct operand shift in division 

Operand adjustment required 



-t" Represents logical OR 
o Represents logical AND 



EXPI [ALL FUNCTIONS COMP/ ADD/SUB 
EXPs] 



( 



-RK9 



\rL8 • 



-RL9 



TBE — ^RK, TB8 - 

If MY : SBE-^RL 

If MY: SBE -*-RL, INPC 

RQ-—SBE 

RQ — -RZ if (ADSU#M9#EX <63) 

SET BP FROM M9 

SET BZ if EXZERO 

SET BR if (M9«EX>63) 

M9-"^E SB 

IF (DV»SANORM) SET RFPV and GOTO 

ENDF2 ELSE 
If (MY+DV) GOTO EXP4 ELSE GOTO EXP2 



EXP2 [CORRECT NEGATIVE DIFFERENCE. 
A/S ONLY] 



SBE, ^INPC —> HZ if BP 
SET BR if (BP#EX>63) 
■BSET ESB [ready FOR EXP3]* 
GOTO EXP3 



EXP3 [select FINAL EXPONENT. 
A/S only] 



TBE if BP, UB if BP 
M8 — ^ESB 
GOTO EXP4 



EXP4 



-SBE 



0-*-TBE, UBE 

RESET BP if (MY^DV) 

GOTOADJl if (DV-^(ADSU#BZ*BR)) ELSE 
GOTO AD J 3 and CLEAR RZ 



El 

9: 
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FLOATING 


POINT FUNCTIONS 




ft 

f* 


X 
^2 




u 

z 
< 

X 

u 


D 1 

> < 

5q 




ADJI TO ADJ3 





Jht_ 


X 

o 

5 

5 

3 






>fMl 


Notes : 


A OJ 1 [ad J us T LEAS T SIG . Hi\ LF] 




Tf 


u. 






Q.^ 




/if BP, IB---UBF, TBF; and THE if DV 
\lf BP, SB-^SBF 

+2^ if RZ = I. CY23-*-TCY 




CD 

"3" 


O 

uJ 

X 

t— 




in 


■^ cO 


Shift dividend right or *low exp 




-" 




o IX-' rand 




" 

^ 


LU 

X 






Round in A/S penultimate shift 








COUNT RZ 




„ 


!< 








SHIFT RIGHT 




"^ 


i/^ 








RMSHR23=0 




__ 


LU 




^ 


Computes 'carried down' bit 


RMSIIR22- [CY23^(UAO if l^V , SAO if BP)] 
GOTO ADJ2 

ADJ2 [adjust MOST SIG. HALF J 


n 


•9 


LU 

X 
u> 

CC 

UJ 

X 

s 








Shift divided right or 'low exp' operand 


/if BP, UA— *-UA,TA.SET QBIT if (RMS23 
=SA23) 




r*< 


2 

UJ 

21 








Jf BF, SA-— SA 











Round in A/S penultimate shift 


INPC = TCY 






2 




^ 


Sign can change by rounding 


SHIFT RIGHT 
RIMSHR23-RMS23 • RMT23 


4/1 


UJ 

X 


UJ 








RMSHR22=RMS23 

GOTO ADJI if (ADSU.RZZ) ELSE GOTO ADJ3 


C t/> 


uo 














AND CLEAR RZ 


og 








ADJ3 [CLEAR REGISTERS J 


ir)5 






Clear product register *^'^^~^^) 


0-^lT if DV.SET RZ to 40 


ros 




^"^ 


Clear quotient register<- "^ 
Clear T if worthless in A/S 


0— -T if MY. SET RZ to 37 
0-i-T M (ADSU«BP»BR) 












Clear SF if worthless in A/S 


0-^SA,SBF if (ADSU»BP»BR) 
GOTO LOOPFl 


0/ 3 

ISSUE 










O 






+ Represents Ir Ucal OR 
© Represents Ic ical AND 
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FLOATING POINT FUNCTIONS 

LOOPF! TO LOOPF3 



Notes: 



irO 



TB ± SB - 



-TB 



Final product^ in multiply or 
siirn or difference in 
A/S *. ITB 



Maintains sign of L s. half zt/ro 

Only one half of rnullioliiT (U) is shifted 



T A ± SA - 



>'T/\. l^'iiiai product 



in multiply or sum or difference 
in A/S—- — <ii-l'A 

StoTi' initiaJ ex p. si^ni in SB23 

(,)verfh;v i.n iniiitipiy/ adci/ subtract 

See LOOI^El 

Done by bi -phase collector forcing 
HP avtnds roiuidin^f aftei* re -noi'malising 
Dlvisicm exp. in 1 cut due t^> divid -jid 
shift 



Shift appropriate hall of multiplier/ 
quotient 



See Jo^ic of MBIT 
Kuters QlilT into { ori'ect place 
in V 

Divide -«-«,-NOHMH to adjust . xp. 
for dividend siuft 



+ Represents logical OR 
« Represents logical AND 



i.oopFi [all functions, operatk ox L, S. 

HALF] 



TB- 



-TB; AND UB if (CMY*RZZ) + ADSU) 



+SBFif(MY»MBlTeRZZ) + (DV»QB1T) + AD 
+lNVSiiF, INFO if {MY«MBIT»UZZ) + (DV^QBH ) 
+ SF' 

CY23 «-TCY 

RFSi'rr SB2 3 

SHIFT RICHT if (MY«HZZ), LEFT if DV 

RMSBLO - 

RQ23 I'ORCED ZERO if NOT LEFT SHIFT 

RMS}]R22 = RMS23 (0) 

MBIT IS UB9 WHTLE RZ > 23, UAO WHILE RZ < 2/ 

GOTO LCXrPF2 

LOOPF2 [\LL b'lrNCTIONS. OPERATE ON M.S. 
i iA LI'] 



TA- 



— TA; AND FA if ((MY©RZZ) + ADSU) 



<4-SA if {MY«&MBlT«RZZ>-h (DV«QB1T) -H AD 
[^ LNVSA if (MY«MB1T«RZZ) + (DVeQBIT) + SU 

INPC - TCY 

COPY ESB INTO Sf^2:^ 

SE1;QB1T if RMS23 - SA23 

sirr Rpv If ("tk.ua"»ovr) 

SHTi^T AS IN LOOPfT 

RMSHLO - TF/23 

KMSHR22 - RMS23. RMSHR23 AS FIXED Pc:>INT 

M PY 

RMSO — — ^TB22 if MY#RZZ 
SET BP PlOF\T31NC FLAG] . 
Si:T HH Q)1V. ivXP. Ff.Ac] 

(XnX) LOOPF3 



LOOP}-';] 



[SHIFl MULTIPLIER/ QUOTIENT] 



{ 



UA -*"UA if ((MY«RZ 4 23) -f (DV®HZ > 16)) 

OTHERWISE UB- — *-UB 
SHIFT AS IN L(X)PF1 
COUNT RZ 
RMSHR22 •■ 1 if 'UB' 
RMSHLO = QBFr«RZ > U> 
RMS5 - Qf)tT#RZ <1G »D1\ 

(ICiU) LOOPFl ifHZZrELSE NORMSEQ if DV 
ELSi: NORM 3 



TT 



O 5" 






^ I 
O 

:2 

o. 

< 

G 



S - X 



■V^^PJ 



9:^ 



>prr7d >0 ^3 ION 
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aa 


F" 
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^-S FLOATING 


POINT FUNCTIONS. 






LU 
UJ 

X 


•0 





«/) 


"¥ i 






"3r 

r>4 


CO 






u 

< 


Q :i j 


NORMALISE SEQUENCE 






X 






X 


1 
VL Ul*i\ Argument in f . Exponent ir 


NORMSEQ [nORMAEISE ROUTINE E:NTRY 


17 


2 

3 








switc.;hing] 
if (t\orai3«rz - 23} goto ende2 else 






O 

LU 

z 

1— 






a 


>^ en (D ^^ Shifts without norm. 
















LU 






Argument normalised. Hounding required 


If (RPV»UNORM#BP) GOTO ROUNDl EESE 




~ 


I— 






Argument renormalised after roundin^f 


If (RPV»UNORAU'3P) CrOTO ENDFl ELSE 




"? 


!< 






Normalising required 


CrOTO NORM 1 




^ 








iS 


NORMl [normalise L.S. HALf] 


"5" 


LU 
LU 

X 








UB — UB 




r- 


UJ 

X 








SHIFT LEFT if RPV, RIGHT if RPV 




*n 


O 








RMSHLO = 0. RMS22 — TGY 




^ 


U- 

o 








RMSHR22 = UAO 


m 


K* 


LTi 






Monitors for zero ai'gument 


GOUNT RZ 
GO! O NORM 2 




r4 


cL 

LU 

CO 

3 






9 


NORM2 [normalise M.S. HALf] 


LU 


uJ 

T 


2 

LU 








UA — UA. RESET BR 

SHIFT LEFT if RPV, RIGHT if RPV 


r <^ 


oO 
















RMSHLO = TGY 


O < 








RMSHR22 = RMS23 






Correct for overflow in right normalise 


RMSHR2 3 - RMS2 3 
CX:)TO NORMS 


















^^5 






n Adjust exponent (±1) -^ ; 10 
bit opd. 


* NORMS [adjust EXPONENT IN SB] 
/SBE -RL, ESB-— RL9 \ -^SBE 








6^R 






\+l (INPC); 2046— RKifRPV»(DV«BR)yRQ9-*-ESR 






40 shifts without norm. Therefore 


SET BZ if RZ =23 






argument zc^ro 


GOTO ROUNDl if RPV^BP 
GOTO ENDFl if RPVsBP 


^" 




. 




NORMSEQ if RPV 


.o 






+ Represents logical OR 










• Represents logical AND 




^ 




* 


« 
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FLOATING POINT FUNCTIONS 

ROUNDING & FINISHING. 



Notes : 



Rounding in A/S is before add /sub 
iN'otes tiiat rounding has occurred 



en 



Ovv?rflow causes re -normalising 



ROUND 1 [rO UND L . S . H.\ Lf] 

UB 4- [2^ if NOT ADSlj]-*-UB. CY23-^TCY 
RESET BP. 
GOTO ROUND2 

ROUND 2 [rOU^ND M.S. IIALf] 



UA + 'rc\— -UA 
SET RPV if OVR 
GOTO ROUNDS 



ROUND 3 [idle] 



Test normalising- required after rounding — -*^UBE. NORMSEQ 



ENDFl [test EXP .OVEREIX^W/ underflow] 



Ivxpofieni overflow i.e. > +255 S1:T Ri'T'V if (ESBq^SB8)«SB23 

!:xiK>nent underflow i.e. < -256. Result zero SET BZ if (ESB^SB8)#SB23 

C>OTO ENi)l'2 



itCKuit or FP zero to all reeisters 
R es V nc hi* on i.se v loc k s 



Function complete 



+ Represents logical OR 
® Represents logical AND 



ENDF2 [l.S. HALF RESULt] 



UB, SBE if BZ; 2^' if BZ-— UB, SB, TB 

RESYNC 

GOTO ENDE3 



ENDF3 [M.S. HALF result] 



UA if BZ; Q if BZ— ^UA, SA, TA 
FPEND 
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